|
|  Big Bertha
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Big Bertha"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  2
  WIDTH  13 * CW
  HEIGHT  2 * CH + 2 * 5 * COH + 2 * 11 * COH
  ZeroToWin 104 - CARDSIN$1

| Foundations

  FOR column = 0 TO 1
    FOR stack = 0 TO 3
      FOUNDATION
        X column * CW
        Y stack  * CH
        MAX 12
        ID 1
      END
    END
  END

| Kings Stack

  FOUNDATION
    X 9 * CW
    Y CH + 5 * COH + 11 * COH
    FIRST 13
    JoinOffset 0
    FLAGS Join____ AppendOneOnly
    ID 1
  END

| Tableau

  FOR pack = 2 TO 9
    STACK
      X pack * CW
      Y 0
      FIRST 1, 13
      DEAL 6, 1
      DragOffset -1
      FLAGS ClickFly Join__DC DeepCheck Drag__DC
      ID 2
    END
  END

  FOR pack = 2 TO 8
    STACK
      X pack * CW
      Y CH + 5 * COH + 11 * COH
      FIRST 1, 13
      DEAL 6, 1
      DragOffset -1
      FLAGS ClickFly Join__DC DeepCheck Drag__DC
      ID 2
    END
  END

| Reserves

  FOR Row = 0 TO 3
    FOR pack = 10 TO 12
      STACK
        X pack * CW
        Y row  * CH
        FIRST 1, 13
        DEAL 1, 1
        MAX 0
        FLAGS ClickFly AppendOneOnly PaintLast
        ID 2
      END
    END
  END

  STACK
    X 10 * CW
    Y 4  * CH
    FIRST 1, 13
    DEAL 1, 1
    MAX 0
    FLAGS ClickFly AppendOneOnly PaintLast
    ID 2
  END

  STACK
    X 12 * CW
    Y 4  * CH
    FIRST 1, 13
    DEAL 1, 1
    MAX 0
    FLAGS ClickFly AppendOneOnly PaintLast
    ID 2
  END

END
